<%
	
	Dim DbPath, strComm
        DbPath = Server.MapPath("/") & "\..\database\test.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
        conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbPath & ";Persist Security Info=False"
        strComm = "INSERT INTO tblPhone VALUES ('ABC', 'Doremi')"
        conn.Execute strComm
	conn.Close()
	Set conn = nothing
 
	
%>
